diary-mail-entries calls exit-calendar when finished.

diff --git a/lisp/calendar/diary-lib.el b/lisp/calendar/diary-lib.el
index eb6f63d189f09adb4029298090f421f875a5adf8..2a27d506eb5c389c0a65755afabbcfcb33edc0ce 100644 (file)
--- a/lisp/calendar/diary-lib.el
+++ b/lisp/calendar/diary-lib.el
@@ -642,7 +642,8 @@ to run it every morning at 1am."
     (insert (format-time-string "%a %d %b %Y" (current-time)))
     (mail-text)
     (insert text)
-    (mail-send-and-exit nil)))
+    (mail-send-and-exit nil)
+    (exit-calendar)))
 
 (defun diary-name-pattern (string-array &optional fullname)
   "Convert an STRING-ARRAY, an array of strings to a pattern.